function [x_dJh_stoe_mat] = dJh_stoe_mat(x)
x_dJh_stoe_mat=[0.,0.,0.,0.,0.,0.,0.,0.,0.;0.,0.,0.,0.,0.,0.,0.,0.,0.;0.,0.,0., ...
  0.,0.,0.,0.,0.,0.];
